home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / EX-I-1.OBJ < prev    next >
Text File  |  1990-11-18  |  640b  |  22 lines
  1. 0010    401000 Put X(0) - X(4) into 1000 - 1004 
  2. 0011    001000 Load X
  3. 0012    250026 If zero, go to halt
  4. 0013    001500 Load zero
  5. 0014    030001 Put zero in index register 1
  6. 0015    031005 Set sum to zero
  7. 0016    001005 Load sum
  8. 0017   1011000 Add A(I)
  9. 0018    031005 Store sum
  10. 0019    000001 Load I
  11. 0020    011501 Add 1
  12. 0021    030001 Store new I
  13. 0022    021503 Subtract 5
  14. 0023    240016 If negative repeat loop
  15. 0024    411005 Display sum
  16. 0025    260010 Start over
  17. 0026    500000 Halt
  18. 1500         0 Zero
  19. 1501         1 One
  20. 1503         5 Five
  21. 9999        10 End of code and starting location
  22.